From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 5 Oct 2003 13:51:04 +0000 (+0000)
Subject: (Info-following-node-name): New function.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~25298
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=a614318f4d26f8a2256b2687fced6f5aae232485;p=emacs.git

(Info-following-node-name): New function.
---

diff --git a/lisp/info.el b/lisp/info.el
index 28869c4f469..e11fdbf16ad 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -1441,6 +1441,11 @@ End of submatch 0, 1, and 3 are the same, so you can safely concat."
 	  "[" (or allowedchars "^,\t\n") " ]" ;The last char can't be a space.
 	  "\\|\\)\\)"))			      ;Allow empty node names.
 
+;;; For compatibility; other files have used this name.
+(defun Info-following-node-name ()
+  (and (looking-at (Info-following-node-name-re))
+       (match-string 1)))
+
 (defun Info-next ()
   "Go to the next node of this node."
   (interactive)